home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / square root.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  38 lines
  1. 0 GOTO 7
  2. 1 "
  3. 2 "
  4. 3 "
  5. 4 "     WRITTEN BY ROBERT K. SCHMID
  6. 5 "
  7. 6 "
  8. 7 POKE 788,52:POKE 792,193
  9. 8 PRINT CHR$(9);CHR$(142);CHR$(8)
  10. 9 POKE 53280,0:POKE 53281,0
  11. 10 PRINT"[147][169]   [223][146]   [146]   [146]  [169]   [223][146]  [169]   [223][146]  [169]   [223][146]      [223][146]"
  12. 11 PRINT" [146]    [146]   [146]   [146]   [146]    [146]   [146]       [146]    [146]   [146]    [146]"
  13. 12 PRINT" [146]    [146]   [146]   [146]       [146]  [223]   [223][146]       [146]      [146][169]"
  14. 13 PRINT" [146] [223][146]  [146]   [146]   [146]   [146]    [146]       [146]   [146]    [146]   [146]   [146]"
  15. 14 PRINT"[223]   [146][169]  [223]  [146][169]   [146]    [146]  [223]   [146][169]   [146]    [146]   [146]   [146]"
  16. 15 PRINT"   [146]                                   [146]"
  17. 16 PRINT"  [223]                                 [223][146][223]"
  18. 17 PRINT
  19. 18 PRINTTAB(10)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  20. 19 PRINTTAB(10)"[194] SOFTWARE COMPANY [194]"
  21. 20 PRINTTAB(10)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  22. 21 PRINT:PRINTTAB(15)"PRESENTS:":PRINT
  23. 22 PRINTTAB(13)"SQUARE ROOT 64"
  24. 23 PRINT:PRINT:PRINT:PRINT"          PRESS A KEY TO START"
  25. 24 GET QWE$:IF QWE$="" THEN 24
  26. 100 PRINT CHR$(147)
  27. 101 PRINT"ENTER ANY NUMBER AND THE COMPUTER WILL"
  28. 102 PRINT"TELL YOU THE SQUARE ROOT."
  29. 103 PRINT"PRESS A KEY..."
  30. 104 GET A$:IF A$="" THEN 104
  31. 105 PRINT CHR$(147)
  32. 110 PRINT"PLEASE ENTER YOUR NUMBER..."
  33. 115 INPUT A
  34. 120 PRINT
  35. 125 PRINT"SQUARE ROOT OF"A"IS"SQR(A)
  36. 130 PRINT
  37. 140 GOTO 103
  38.